#-----------------------------------------------------------------------------
#
# IHME plot from Callaway and Li (2023)
#
# This code reproduces Figure S-1 in the Supplementary Appendix
# 
#
# Authors: Brantly Callaway and Tong Li
# Date:    2/8/2023
#
#-----------------------------------------------------------------------------

library(ggplot2)

load("ihme_cases_data.RData")

ggplot(ihme_cases_data, aes(x=date, y=est_cases)) + 
  geom_line(size=1.1, aes(color="IHME Estimate")) +
  geom_line(aes(y=cases_ma, color="Confirmed"), size=1.1) +
  theme_bw() +
  ylab("Cases per 1000 People") +
  xlab("") +
  scale_color_manual(name="",
                     values=c("IHME Estimate"="#003f5c",
                              "Confirmed"    ="#ffa600")) +
  theme(legend.position="bottom") +
  scale_x_date(breaks="2 months", date_labels="%b")
